; Music of Warlock Game Intro (1989)
; Ripped by Megachur the 30/08/2008

	write "WARLOCGI.BIN"

music_date_rip	equ &1e88
music_adr	equ &38ff
first_theme	equ 0	; 0 -> 0
last_theme	equ 0

	read "music_header_v1_0.asm"

.l38ff
	db &00
.l3900
	jp l3906	; init music
.l3903
	jp l3945	; play music
;
.init_music
.l3906
;
	ld hl,l40a0
	push hl
	ld hl,l3e1f
	ld de,l3e20
	ld bc,#006e
	ld (hl),#00
	ldir
	pop hl
	ld (l3dd5),hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl
	ld a,l
	ld (l3e36),a
	ld a,h
	ld (l3e37),a
	push hl
	add hl,de
	ld a,l
	ld (l3e5b),a
	ld a,h
	ld (l3e5c),a
	pop hl
	add hl,bc
	ld a,l
	ld (l3e80),a
	ld a,h
	ld (l3e81),a
	ld a,#01
	ld (l38ff),a
	ret
;
.play_music
.l3945
;
	ld a,(l38ff)
	or a
	ret z
	xor a
	ld (l3dd8),a
	ld ix,l3e1f
	call l396a
	ld a,#01
	ld (l3dd8),a
	ld ix,l3e44
	call l396a
	ld a,#02
	ld (l3dd8),a
	ld ix,l3e69
.l396a
	ld a,(ix+#00)
	or a
	jr z,l39e2
	dec (ix+#00)
	ld a,(ix+#08)
	or a
	jr z,l397f
	dec a
	ld (ix+#08),a
	jr l3994
.l397f
	ld a,(ix+#0a)
	or a
	jr z,l398b
	dec a
	ld (ix+#0a),a
	jr l3994
.l398b
	ld a,(ix+#09)
	ld (ix+#0a),a
	inc (ix+#0b)
.l3994
	ld a,(ix+#01)
	and #03
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l3df1
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	call l3a34
	ld l,(ix+#0c)
	ld h,(ix+#0d)
	ld a,(ix+#11)
	add h
	ld h,a
	ld (ix+#0d),h
	ld a,(ix+#01)
	srl a
	srl a
	srl a
	and #07
	ld b,a
	call nz,l3beb
	ld a,(ix+#01)
	rlca
	rlca
	and #03
	ld b,a
	call nz,l3ba4
	call l3bc8
	ld a,(ix+#02)
	and #03
	call nz,l3bea
	call l3a88
	call l3a35
	ret
.l39e2
	ld l,(ix+#17)
	ld h,(ix+#18)
	ld a,(hl)
	or a
	jp z,l3c3f
	bit 7,a
	jp nz,l3c57
	cp #15
	jp nc,l3a0a
	push hl
	pop iy
	dec a
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l3df7
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	call l3a34
.l3a0a
	ld l,(ix+#17)
	ld h,(ix+#18)
	inc hl
	inc hl
	ld (ix+#17),l
	ld (ix+#18),h
	ld de,(l3dd5)
	push hl
	ex de,hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	inc hl
	inc hl
	add hl,de
	ex de,hl
	pop hl
	or a
	sbc hl,de
	jp nz,l396a
	xor a
	ld (l38ff),a
;	jp #bca7 modified by Megachur
	defs 2,0
	ret
.l3a34
	jp (hl)
.l3a35
	ld a,(l3dd8)
	add a
	ld e,a
	ld c,l
	call lbd34
	ld a,e
	inc a
	ld c,h
	call lbd34
	ld a,(ix+#06)
	ld c,a
	ld a,(l3dd8)
	add #08
	call lbd34
	bit 2,(ix+#02)
	jr z,l3a5e
	ld c,(ix+#20)
	ld a,#06
	call lbd34
.l3a5e
	bit 6,(ix+#02)
	jr z,l3a7c
	ld c,(ix+#21)
	ld a,#0b
	call lbd34
	ld c,(ix+#22)
	ld a,#0c
	call lbd34
	ld c,(ix+#23)
	ld a,#0d
	call lbd34
.l3a7c
	ld a,(l3dd7)
	or #80
	ld c,a
	ld a,#07
	call lbd34
	ret
.l3a88
	call l3abb
	ld a,(ix+#0c)
	or (ix+#0d)
	call z,l3b28
	bit 2,(ix+#02)
	call nz,l3ad9
	bit 3,(ix+#02)
	call nz,l3b42
	bit 4,(ix+#02)
	call nz,l3b2d
	bit 5,(ix+#02)
	jr z,l3ab3
	ld (ix+#06),#10
.l3ab3
	bit 6,(ix+#02)
	call nz,l3af9
	ret
.l3abb
	ld a,(l3dd8)
	ld d,#08
	ld e,#01
.l3ac2
	or a
	jr z,l3acc
	dec a
	rlc d
	rlc e
	jr l3ac2
.l3acc
	ld a,e
	xor #ff
	ld e,a
	ld a,(l3dd7)
	and e
	or d
	ld (l3dd7),a
	ret
.l3ad9
	ld a,(ix+#0c)
	or (ix+#0d)
	ret z
	ld a,(l3dd8)
	ld d,#08
.l3ae5
	or a
	jr z,l3aed
	dec a
	rlc d
	jr l3ae5
.l3aed
	ld a,d
	xor #ff
	ld d,a
	ld a,(l3dd7)
	and d
	ld (l3dd7),a
	ret
.l3af9
	ld (ix+#21),l
	ld (ix+#22),h
	srl (ix+#21)
	rr (ix+#22)
	srl (ix+#21)
	rr (ix+#22)
	srl (ix+#21)
	rr (ix+#22)
	srl (ix+#21)
	rr (ix+#22)
	srl (ix+#21)
	rr (ix+#22)
	ret
.l3b28
	xor a
	ld (ix+#06),a
	ret
.l3b2d
	ld a,(l3dd8)
	ld d,#01
.l3b32
	or a
	jr z,l3b3a
	dec a
	rlc d
	jr l3b32
.l3b3a
	ld a,(l3dd7)
	or d
	ld (l3dd7),a
	ret
.l3b42
	push hl
	ld b,#06
.l3b45
	srl h
	rr l
	djnz l3b45
	ld a,l
	pop hl
	ld (ix+#20),a
	ret
.l3b51
	ld a,(ix+#04)
	srl a
	srl a
	srl a
	srl a
	xor #0f
	add (ix+#06)
	cp (ix+#03)
	jr c,l3b6c
	inc (ix+#01)
	ld a,(ix+#03)
.l3b6c
	ld (ix+#06),a
	ret
.l3b70
	ld a,(ix+#04)
	and #0f
	xor #0f
	ld b,a
	ld c,(ix+#05)
	srl c
	srl c
	srl c
	srl c
	ld a,(ix+#03)
	cp c
	jr nc,l3b8a
	ld c,a
.l3b8a
	ld a,(ix+#06)
	sub b
	jr c,l3b93
	cp c
	jr nc,l3b97
.l3b93
	inc (ix+#01)
	ld a,c
.l3b97
	ld (ix+#06),a
.l3b9a
	ret
.l3b9b
	ld a,(ix+#01)
	xor #04
	ld (ix+#01),a
	ret
.l3ba4
	ld a,(ix+#0a)
	or a
	call z,l3b9b
	ld a,b
	cp #02
	jr nz,l3bbb
	ld a,(ix+#01)
	and #04
	ret z
	srl h
	rr l
	ret
.l3bbb
	ld a,(ix+#01)
	and #04
	ret z
	ld l,(ix+#0e)
	ld h,(ix+#0f)
	ret
.l3bc8
	ld a,(ix+#08)
	or a
	ret nz
	ld a,(ix+#0a)
	or a
	ret nz
	ld a,(ix+#0b)
	bit 0,a
	ret z
	and #03
	cp #02
	jr c,l3be4
	ld a,(ix+#19)
	add l
	ld l,a
	ret
.l3be4
	ld a,l
	sub (ix+#19)
	ld l,a
	ret
.l3bea
	ret
.l3beb
	ld a,(ix+#08)
	or a
	ret nz
	ld a,b
	cp #01
	jr z,l3c10
	ld e,(ix+#10)
	ld d,#00
	cp #03
	jr nz,l3c08
	ld a,e
	cpl
	add #01
	ld e,a
	ld a,d
	cpl
	adc #00
	ld d,a
.l3c08
	add hl,de
	ld (ix+#0c),l
	ld (ix+#0d),h
	ret
.l3c10
	push hl
	ld c,(ix+#10)
	ld b,#00
	ld e,(ix+#0e)
	ld d,(ix+#0f)
	or a
	sbc hl,de
	pop hl
	ret z
	jr c,l3c2f
	or a
	sbc hl,bc
	push hl
	or a
	sbc hl,de
	pop hl
	jr nc,l3c38
	jr l3c37
.l3c2f
	add hl,bc
	push hl
	or a
	sbc hl,de
	pop hl
	jr c,l3c38
.l3c37
	ex de,hl
.l3c38
	ld (ix+#0c),l
	ld (ix+#0d),h
	ret
.l3c3f
	ld (ix+#0c),#00
	ld (ix+#0d),#00
.l3c47
	inc hl
	ld a,(hl)
	cp #ff
	jp z,l3c8b
	ld (ix+#00),a
	call l3c9a
	jp l3a0a
.l3c57
	push hl
	res 7,a
	add (ix+#15)
	ld b,#00
.l3c5f
	cp #0c
	jr c,l3c68
	sub #0c
	inc b
	jr l3c5f
.l3c68
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l3dd9
	add hl,de
	ld a,(hl)
	ld (ix+#0c),a
	inc hl
	ld a,(hl)
	ld (ix+#0d),a
	pop hl
	ld a,b
	or a
	jr z,l3c47
.l3c7e
	srl (ix+#0d)
	rr (ix+#0c)
	djnz l3c7e
	jp l3c47
.l3c8b
	ld a,(ix+#0c)
	ld (ix+#0e),a
	ld a,(ix+#0d)
	ld (ix+#0f),a
	jp l3a0a
.l3c9a
	ld (ix+#06),#00
	ld a,(ix+#07)
	ld (ix+#08),a
	ld a,(ix+#01)
	and #fc
	ld (ix+#01),a
	ret
.l3cad
	ld a,(iy+#01)
	bit 7,a
	jr z,l3cba
	and #0f
	ld (ix+#03),a
	ret
.l3cba
	push ix
	and #0f
	ld ix,l3e1f
	ld (ix+#03),a
	ld ix,l3e44
	ld (ix+#03),a
	ld ix,l3e69
	ld (ix+#03),a
	pop ix
	ret
.l3cd6
	ld a,(iy+#01)
	ld (ix+#04),a
	ret
.l3cdd
	ld a,(iy+#01)
	res 6,(ix+#02)
	bit 7,a
	jr z,l3cf0
	set 6,(ix+#02)
	set 5,(ix+#02)
.l3cf0
	res 7,a
	or a
	jr z,l3d01
	set 2,(ix+#02)
	cp #20
	jr nc,l3d0a
	ld (ix+#20),a
	ret
.l3d01
	ld a,(ix+#02)
	and #03
	ld (ix+#02),a
	ret
.l3d0a
	set 3,(ix+#02)
	cp #21
	ret c
	set 4,(ix+#02)
	ret
.l3d16
	ret
.l3d17
	ret
.l3d18
	ld a,(iy+#01)
	ld (ix+#09),a
	ld (ix+#0a),a
	ret
.l3d22
	ret
.l3d23
	ld a,(iy+#01)
	and #03
	rrca
	rrca
	ld b,a
	ld a,(ix+#01)
	and #3f
	or b
	ld (ix+#01),a
	ret
.l3d35
	ld a,(iy+#01)
	ld (ix+#07),a
	ret
.l3d3c
	ld a,(iy+#01)
	ld (ix+#05),a
	ret
.l3d43
	ld a,(iy+#01)
	xor #ff
	srl a
	srl a
	srl a
	srl a
	srl a
	srl a
	ld (ix+#19),a
	ret
.l3d58
	ld a,(iy+#01)
	ld (ix+#11),a
	ret
.l3d5f
	ld a,(iy+#01)
	ld (ix+#10),a
	ret
.l3d66
	ret
.l3d67
	ld a,(iy+#01)
	and #07
	ld b,a
	sla b
	sla b
	sla b
	ld a,(ix+#01)
	and #c7
	or b
	ld (ix+#01),a
	ret
.l3d7d
	ld a,(ix+#1c)
	or a
	jr nz,l3d86
	ld a,(iy+#01)
.l3d86
	dec a
	ld (ix+#1c),a
	ret z
	ld a,(ix+#1a)
	ld (ix+#17),a
	ld a,(ix+#1b)
	ld (ix+#18),a
	ret
.l3d98
	ld a,(ix+#17)
	ld (ix+#1a),a
	ld a,(ix+#18)
	ld (ix+#1b),a
	ret
.l3da5
	ld a,(ix+#1f)
	or a
	jr nz,l3dae
	ld a,(iy+#01)
.l3dae
	dec a
	ld (ix+#1f),a
	ret z
	ld a,(ix+#1d)
	ld (ix+#17),a
	ld a,(ix+#1e)
	ld (ix+#18),a
	ret
.l3dc0
	ld a,(ix+#17)
	ld (ix+#1d),a
	ld a,(ix+#18)
	ld (ix+#1e),a
	ret
.l3dcd
	ld a,(iy+#01)
	ld (ix+#15),a
	ret
.l3dd8 equ $ + 4
.l3dd7 equ $ + 3
.l3dd5 equ $ + 1
	db #00,#00,#50,#38,#02
.l3dd9
	dw #0edd,#0e07,#0d3e,#0c80
	dw #0bcc,#0b23,#0a83,#09ec
	dw #095d,#08d6,#0857,#07e0
.l3df7 equ $ + 6
.l3df1
	dw l3b51,l3b70,l3b9a,l3cad
	dw l3cd6,l3cdd,l3d16,l3d17
	dw l3d18,l3d22,l3d23,l3d35
	dw l3d3c,l3d43,l3d58,l3d5f
	dw l3d66,l3d67,l3d7d,l3d98
	dw l3da5,l3dc0,l3dcd
.l3e20 equ $ + 1
.l3e1f
	db #00,#02,#00,#0c,#1d,#a0,#0a,#00
	db #00,#00,#00,#bc,#54,#00,#00,#00
.l3e36 equ $ + 7
	db #00,#00,#00,#00,#00,#ff,#00,#30
.l3e37
	db #51,#01,#2a,#51,#11,#b4,#50,#00
.l3e44 equ $ + 5
	db #00,#00,#00,#00,#00,#24,#02,#00
	db #0c,#1d,#a0,#00,#00,#00,#00,#00
	db #bc,#00,#00,#00,#00,#0a,#00,#00
.l3e5c equ $ + 5
.l3e5b equ $ + 4
	db #00,#00,#ff,#00,#e2,#52,#01,#c0
	db #52,#00,#00,#00,#00,#e2,#00,#00
.l3e69 equ $ + 2
	db #00,#00,#18,#02,#00,#0f,#19,#a0
	db #0a,#00,#00,#00,#00,#bc,#a0,#02
	db #00,#00,#00,#00,#00,#00,#00,#0b
.l3e81 equ $ + 2
.l3e80 equ $ + 1
	db #00,#ba,#54,#03,#9a,#54,#00,#3e
	db #54
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00

	call #bca7	; init play interrupt
	ld a,#01
	ld (l405f),a
	xor a
	ld (l38ff),a
	ld hl,l4040
	jp #bcda

	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00

	xor a		; stop play interrupt
	ld (l405f),a
	ld hl,l4040
	call #bcdd
	call #bca7
	ret

	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00
.l4040
	db #00,#00,#00,#00,#00,#a0,#60,#40
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l405f equ $ + 7
	db #00,#00,#00,#00,#00,#00,#00,#00
	;
.play_music_interrupt
	;
	push ix
	push iy
	ld a,(l405f)
	or a
	jr z,l4074
	call l3903
	ld a,(l38ff)
	or a
	call z,l3900
.l4074
	pop iy
	pop ix
	db #c9,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l40a0
	db #fc,#01,#d2,#03,#0a,#2c,#02,#19
	db #0b,#a0,#14,#ff,#13,#01,#11,#01
	db #bc,#06,#c3,#06,#c1,#06,#c3,#06
	db #bf,#06,#c3,#06,#be,#06,#c3,#06
	db #10,#02,#11,#01,#bf,#06,#c6,#06
	db #c4,#06,#c6,#06,#c3,#06,#c6,#06
	db #c1,#06,#c6,#06,#10,#02,#11,#01
	db #c1,#06,#c8,#06,#c6,#06,#c8,#06
	db #c5,#06,#c8,#06,#c3,#06,#c8,#06
	db #10,#02,#11,#01,#c4,#06,#c8,#06
	db #bf,#06,#c8,#06,#10,#02,#11,#01
	db #c6,#06,#c8,#06,#c1,#06,#c8,#06
	db #10,#02,#12,#04,#01,#8c,#0a,#a0
	db #02,#1d,#11,#01,#c3,#06,#c1,#06
	db #bf,#06,#c1,#0c,#bf,#06,#be,#06
	db #bf,#0c,#be,#06,#bc,#0c,#bf,#06
	db #c1,#06,#c3,#06,#c8,#06,#10,#04
	db #11,#01,#00,#24,#c3,#0c,#c3,#18
	db #c3,#06,#c1,#06,#bf,#0c,#14,#01
	db #10,#02,#14,#ff,#11,#01,#c8,#06
	db #c4,#06,#bf,#06,#10,#05,#c4,#06
	db #11,#01,#c8,#06,#c6,#06,#c1,#06
	db #10,#05,#c6,#06,#13,#01,#11,#01
	db #bc,#06,#c3,#06,#c1,#06,#c3,#06
	db #bf,#06,#c3,#06,#be,#06,#c3,#06
	db #10,#02,#11,#01,#bf,#06,#c6,#06
	db #c4,#06,#c6,#06,#c3,#06,#c6,#06
	db #c1,#06,#c6,#06,#10,#02,#11,#01
	db #c1,#06,#c8,#06,#c6,#06,#c8,#06
	db #c5,#06,#c8,#06,#c3,#06,#c8,#06
	db #10,#02,#11,#01,#c4,#06,#c8,#06
	db #bf,#06,#c8,#06,#10,#02,#11,#01
	db #c6,#06,#c8,#06,#c1,#06,#c8,#06
	db #10,#02,#12,#02,#11,#01,#c8,#06
	db #c6,#06,#c3,#06,#c1,#0c,#c3,#06
	db #c6,#06,#c3,#0c,#c1,#0c,#bf,#06
	db #c1,#06,#bf,#06,#be,#06,#ba,#06
	db #10,#09,#11,#01,#bc,#06,#c3,#06
	db #c1,#06,#c3,#06,#bf,#06,#c3,#06
	db #be,#06,#c3,#06,#10,#18,#11,#01
	db #bf,#06,#c6,#06,#c4,#06,#c6,#06
	db #c3,#06,#c6,#06,#c1,#06,#c6,#06
	db #10,#02,#11,#01,#c1,#06,#c8,#06
	db #c6,#06,#c8,#06,#c5,#06,#c8,#06
	db #c3,#06,#c8,#06,#10,#02,#11,#01
	db #c3,#06,#c7,#06,#be,#06,#c7,#06
	db #10,#08,#11,#01,#bc,#06,#c3,#06
	db #c1,#06,#c3,#06,#bf,#06,#c3,#06
	db #be,#06,#c3,#06,#10,#08,#11,#01
	db #bf,#06,#c6,#06,#c4,#06,#c6,#06
	db #c3,#06,#c6,#06,#c1,#06,#c6,#06
	db #10,#02,#11,#01,#c1,#06,#c8,#06
	db #c6,#06,#c8,#06,#c5,#06,#c8,#06
	db #c3,#06,#c8,#06,#10,#02,#11,#01
	db #c3,#06,#c7,#06,#be,#06,#c7,#06
	db #10,#08,#13,#01,#11,#01,#c4,#06
	db #c8,#06,#bf,#06,#c8,#06,#10,#02
	db #11,#01,#c6,#06,#c8,#06,#c1,#06
	db #c8,#06,#10,#02,#11,#01,#bc,#06
	db #c3,#06,#c1,#06,#c3,#06,#bf,#06
	db #c3,#06,#be,#06,#c3,#06,#10,#02
	db #12,#02,#11,#01,#bc,#06,#c3,#06
	db #c1,#06,#c3,#06,#bf,#06,#c3,#06
	db #be,#06,#c3,#06,#10,#28,#00,#01
	db #0a,#a0,#02,#1d,#0b,#a0,#14,#ff
	db #11,#01,#00,#c0,#10,#04,#01,#8c
	db #b3,#54,#b5,#0c,#b7,#54,#b7,#0c
	db #b9,#54,#ba,#0c,#bc,#24,#bc,#0c
	db #be,#24,#ba,#0c,#bc,#48,#bc,#06
	db #ba,#06,#b7,#06,#b5,#06,#b7,#48
	db #b7,#06,#b5,#06,#b3,#06,#b7,#06
	db #b9,#48,#b9,#06,#b7,#06,#b5,#06
	db #b9,#06,#11,#01,#bc,#06,#be,#06
	db #bf,#06,#10,#02,#bc,#06,#bf,#06
	db #11,#01,#be,#06,#bf,#06,#c1,#06
	db #10,#02,#be,#06,#c1,#06,#00,#c0
	db #11,#01,#bf,#06,#be,#06,#bc,#06
	db #be,#0c,#bc,#06,#ba,#06,#bc,#0c
	db #ba,#06,#b7,#0c,#bc,#06,#be,#06
	db #bf,#06,#c3,#06,#10,#02,#11,#01
	db #00,#24,#bf,#0c,#bf,#18,#bf,#06
	db #ba,#06,#b7,#0c,#14,#01,#10,#02
	db #14,#ff,#11,#01,#c4,#06,#bf,#06
	db #bc,#06,#10,#05,#bf,#06,#11,#01
	db #c6,#06,#c1,#06,#be,#06,#10,#05
	db #c1,#06,#0d,#0a,#11,#01,#03,#21
	db #0f,#04,#98,#c0,#0f,#03,#db,#c0
	db #10,#02,#03,#00,#0f,#00,#00,#c0
	db #11,#01,#c3,#06,#c3,#06,#bf,#06
	db #be,#0c,#bf,#06,#c1,#06,#bf,#0c
	db #be,#0c,#bc,#06,#be,#06,#bc,#06
	db #ba,#06,#b7,#06,#10,#07,#00,#c0
	db #00,#c0,#11,#01,#c3,#06,#c1,#06
	db #bf,#06,#c1,#0c,#bf,#06,#be,#06
	db #bf,#0c,#be,#06,#bc,#0c,#bf,#06
	db #c1,#06,#c3,#06,#c8,#06,#10,#03
	db #11,#01,#c8,#06,#c6,#06,#c3,#06
	db #c1,#0c,#c3,#0c,#c4,#06,#c3,#06
	db #c1,#06,#bf,#06,#be,#0c,#bf,#06
	db #be,#06,#ba,#06,#11,#01,#00,#c0
	db #10,#04,#bc,#60,#be,#54,#bc,#06
	db #ba,#06,#bc,#60,#11,#01,#bc,#06
	db #ba,#06,#b7,#06,#10,#05,#ba,#06
	db #c3,#60,#c5,#54,#c3,#06,#c5,#06
	db #c7,#60,#11,#01,#c8,#06,#c7,#06
	db #c3,#06,#10,#05,#c7,#06,#11,#01
	db #bc,#0c,#be,#0c,#bf,#0c,#be,#18
	db #bc,#0c,#ba,#0c,#bc,#6c,#10,#02
	db #ab,#60,#aa,#60,#a9,#60,#a7,#30
	db #a7,#10,#a9,#10,#aa,#10,#ab,#60
	db #aa,#60,#a9,#60,#a7,#18,#0d,#02
	db #c8,#ff,#0f,#01,#b0,#48,#0f,#00
	db #c8,#60,#01,#0c,#c8,#60,#01,#0a
	db #c8,#60,#01,#09,#c8,#60,#01,#07
	db #11,#01,#c8,#30,#13,#01,#c8,#06
	db #c6,#06,#c3,#06,#12,#02,#c8,#06
	db #c6,#06,#01,#06,#10,#03,#01,#05
	db #c8,#30,#01,#04,#c8,#06,#c6,#06
	db #c3,#06,#c6,#06,#c3,#06,#c1,#06
	db #bf,#06,#be,#06,#01,#03,#bf,#18
	db #bc,#48,#01,#02,#bf,#18,#bc,#48
	db #bf,#18,#bc,#48,#bf,#30,#01,#01
	db #bc,#18,#ba,#18,#00,#01,#0a,#a0
	db #02,#1e,#0b,#14,#14,#0b,#01,#02
	db #00,#1f,#01,#03,#00,#1f,#01,#04
	db #00,#1f,#01,#05,#00,#1f,#01,#06
	db #00,#1f,#01,#07,#00,#1f,#01,#08
	db #00,#1f,#01,#09,#00,#1f,#01,#0a
	db #00,#1f,#01,#0b,#00,#1f,#01,#0c
	db #00,#1f,#01,#0d,#00,#1f,#01,#8f
	db #11,#01,#93,#0c,#98,#54,#96,#0c
	db #9b,#54,#98,#0c,#9d,#54,#9f,#0c
	db #a0,#24,#9d,#0c,#a2,#24,#10,#03
	db #9f,#0c,#11,#01,#98,#12,#96,#18
	db #91,#36,#10,#04,#8f,#60,#91,#60
	db #94,#60,#96,#60,#02,#19,#13,#01
	db #11,#01,#8c,#06,#8c,#06,#98,#06
	db #8c,#06,#10,#04,#11,#01,#8f,#06
	db #8f,#06,#9b,#06,#8f,#06,#10,#04
	db #11,#01,#91,#06,#91,#06,#9d,#06
	db #91,#06,#10,#04,#11,#01,#94,#06
	db #94,#06,#a0,#06,#94,#06,#10,#02
	db #11,#01,#96,#06,#96,#06,#a2,#06
	db #96,#06,#10,#02,#12,#02,#11,#01
	db #98,#18,#96,#18,#91,#18,#91,#06
	db #93,#06,#96,#0c,#10,#04,#91,#54
	db #93,#0c,#94,#54,#91,#0c,#96,#54
	db #97,#0c,#11,#01,#98,#24,#9a,#0c
	db #9b,#24,#9a,#06,#96,#06,#10,#02
	db #98,#54,#9a,#0c,#9b,#54,#98,#0c
	db #94,#54,#93,#0c,#91,#24,#94,#0c
	db #93,#24,#97,#0c,#98,#54,#98,#0c
	db #96,#54,#96,#0c,#94,#54,#93,#0c
	db #91,#24,#94,#0c,#93,#24,#93,#0c
	db #11,#01,#94,#60,#96,#60,#98,#c0
	db #8f,#60,#91,#60,#93,#c0,#10,#02
	db #11,#01,#94,#30,#96,#30,#98,#60
	db #10,#02,#11,#01,#9b,#60,#9a,#60
	db #99,#60,#98,#30,#98,#10,#99,#10
	db #9a,#10,#10,#02,#11,#01,#98,#54
	db #93,#0c,#96,#54,#93,#0c,#95,#54
	db #93,#0c,#94,#24,#91,#0c,#93,#24
	db #97,#0c,#10,#03,#00,#01,#00,#00
.lbd34	; added by Megachur
	di
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ei
	ret
;
.game_name
	db "Warlock Game Intro",0
.game_year
	db "1989",0
.game_publisher
	db "",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
